gusucode.com > 智睿学校网站管理系统 V2.20 > 智睿学校网站管理系统 V2.20\code\UserInfo.asp
<!--#include file="Include/conn.asp"-->
<!--#include file="Include/Fun_SqlIn.Asp"-->
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312" />
<meta http-equiv="Content-Language" content="zh-CN" />
<title>会员中心 - <%=SiteTitle%></title>
<meta name="keywords" content="<%=Sitekeywords%>" />
<meta name="description" content="<%=Sitedescription%>" />
<link href="images/style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<%head()%>
<%
if not (session("zhi_rui_s_MemName")<>"" ) then
response.redirect "UserReg.asp"
response.end
end if
dim MemID,mMemName,mGroupIdName,mRealName,mSex,mQusetion,mAddTime,mUmail,Addess,Umail,Pricect,act
dim mAddess,mZip,mTelephone,mMobilemAddTime,mLoginTimes,mLastLoginTime,mLastLoginIP,UserMoney
dim action
act=trim(Request.QueryString("act"))
call MemInfo()
%>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0" class="main_class">
<tr>
<td width="240" valign="top" class="leftCenter" >
<!--#include file="Include/login.asp"-->
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="Ma_left">关于我们</td>
</tr>
<tr>
<td align="left"><div style="margin-left:10px;"><% =WebMenu()%></div></td>
</tr>
</table>
</td>
<td width="5"></td>
<td valign="top"class="viewright">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30" height="30" align="center" > </td>
<td class="Location"><a href="../index.asp">首页</a><img src="../Images/Arrow_02.gif" width="13" height="12" align="absmiddle">会员中心<img src="../Images/Arrow_02.gif" width="13" height="12" align="absmiddle">注册</td>
</tr>
<tr>
<td height="1" colspan="2" background="../Images/TitBG.gif"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30"> </td>
<td>
<%if act="tail" then%>
<table width="604" border="0" cellspacing="0" cellpadding="1">
<tr>
<td width="100" align="right">总消费：</td>
<td><font color=red><%=Pricect%></font> 元</td>
</tr>
<tr>
<td align="right">目前积分：</td>
<td><font color=red><%=session("UserMoney")%></font> 分</td>
</tr>
</table>
<%else%>
<table width="604" border="0" cellspacing="0" cellpadding="1">
<form name="formReg" method="post" action="UserInfoSave.asp">
<tr>
<td width="100" align="right">帐号：</td>
<td><%=mMemName%>
<font color="#CC0000">*</font> 不可更改 登录：[<font color="red">
<% =mLoginTimes %></font>]次</td>
</tr>
<tr>
<td align="right">姓名：</td>
<td><input name="RealName" type="text" class="input1" id="RealName" size="20" maxlength="50" value="<%=mRealName%>"></td>
</tr>
<tr>
<td align="right">性别：</td>
<td><input name="Sex" type="radio" value="先生" <%if mSex="先生" then response.write ("checked")%>>先生
<input type="radio" name="Sex" value="女士" <%if mSex="女士" then response.write ("checked")%>>女士</td>
</tr>
<tr>
<td align="right">设置密码：</td>
<td><input name="Password" type="password" class="input1" id="Password" size="20" maxlength="16"> 空表示不修改</td>
</tr>
<tr>
<td align="right">确定密码：</td>
<td><input name="vPassword" type="password" class="input1" id="vPassword" size="20" maxlength="16"> </td>
</tr>
<tr>
<td align="right">密码提示问题：</td>
<td><% =mQusetion %></td>
</tr>
<tr>
<td align="right">密码提示答案：</td>
<td>********</td>
</tr>
<tr>
<td align="right">地址：</td>
<td><input name="Addess" type="text" class="input1" id="Addess" value="<% =mAddess %>" size="40" maxlength="100"></td>
</tr>
<tr>
<td align="right">QQ/MSN：</td>
<td><input name="Zip" type="text" class="input1" id="Zip" size="20" maxlength="20" value="<% =mZip%>"></td>
</tr>
<tr>
<td align="right">电话：</td>
<td><input name="Telephone" type="text" class="input1" id="Telephone" size="20" maxlength="50" value="<% =mTelephone %>"></td>
</tr>
<tr>
<td align="right">电子邮箱：</td>
<td><input name="Umail" type="text" class="input1" id="Umail" size="30" maxlength="50" value="<% =mUmail %>">
<font color="#CC0000">*</font></td>
</tr>
<input name="UserID" type="Hidden" value="<% =MemID %>">
<tr>
<td align="right">验证码：</td>
<td><input name="code" type="text" id="code" size="8" maxlength="5" class="input1"/>
<img src="Include/code.asp" border="0" alt="看不清楚请点击刷新验证码" style="cursor : pointer;" onClick="this.src='Include/code.asp'"/></td>
</tr>
<tr>
<td align="right">注册时间：</td>
<td ><% =mAddTime %> 最后登录IP：<% =mLastLoginIP %></td>
</tr>
<tr>
<td height="30" align="right"> </td>
<td valign="bottom">
<input name="Submit" type="submit" class="but1" value=" 保存 ">
<input name="Reset" type="reset" class="but1" value=" 重置 ">
</td>
</tr>
</form>
</table>
<%end if%>
</td>
<td width="30"> </td>
</tr>
<tr>
<td height="30"></td>
<td></td>
<td></td>
</tr>
</table></td>
</tr>
</table>
<%Bottom()%>
</body>
</html>
<%
sub MemInfo()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from zhi_rui_s_Users where MemName='"&session("zhi_rui_s_MemName")&"'"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "暂无相关信息"
else
MemID=rs("ID")
mMemName=rs("MemName")
mRealName=rs("RealName")
mSex=rs("Sex")
mQusetion=rs("Question")
mAddess=rs("Addess")
mZip=rs("Zip")
mTelephone=rs("Telephone")
mUmail=rs("Umail")
UserMoney=rs("UserMoney")
Pricect=rs("Pricect")
mAddTime=rs("AddTime")
mLoginTimes=rs("LoginTimes")
mLastLoginIP=rs("LastLoginIP")
end if
rs.close
set rs=nothing
end sub
%>